﻿<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="utf-8.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="Include.asp"-->
<!--#include file="page.asp"-->
<%
sortid=request("sortid")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>创意产业园</title>
<link href="images/style.css" rel="stylesheet" type="text/css"/>
<script src="images/js.js" type="text/ecmascript"></script>
</head>
<body>
<%
dim strClassName
select case request("id")
case 31
strClassName =  "日常新闻"
case 32
strClassName =  "园区企业新闻"
case 33
strClassName =  "媒体关注"
case 34
strClassName =  "行业新闻"
case 35
strClassName =  "活动报导"
case 36
strClassName =  "政府公告"
case 37
strClassName =  "视频"
case 38
strClassName =  "园区大事记"
case 39
strClassName =  "创意擂台"
end select 
%>            



<div id="all">
    <!--#include file="header.asp"-->
    <div class="EnterPark">
        <div class="Content">
            <div class="Content_path">
            
            <a href="#">新闻中心</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="#"><%=strClassName%></a></div>
				<%
                    sql=" Select * from about where sortid="& request("id")
                    Set rs = Server.CreateObject ("ADODB.Recordset")
                    rs.open sql,conn,1,1
                    if not rs.eof then
                        title = rs("title")
                        Content = rs("body")
                    end if 
                    rs.close
                    set rs=nothing
                %>
            <div class="Content_title"><%=strClassName%></div>
            <div class="Content_txext">
            
            	<div class="NewsList">
                	<ul>
					<%	
                    set rs=server.createobject("adodb.recordset") 
                    exec="select * from news where ssfl="& sortid &" order by id desc" 
                    rs.open exec,conn,1,1 
                    if rs.eof then
                    response.Write "&nbsp;暂无新闻！"
                    response.end
                    end if
                    rs.PageSize =10 '每页记录条数
                    iCount=rs.RecordCount '记录总数
                    iPageSize=rs.PageSize
                    maxpage=rs.PageCount 
                    page=request("page")
                    if Not IsNumeric(page) or page="" then
                    page=1
                    else
                    page=cint(page)
                    end if
                    if page<1 then
                    page=1
                    elseif  page>maxpage then
                    page=maxpage
                    end if
                    rs.AbsolutePage=Page
                    if page=maxpage then
                    x=iCount-(maxpage-1)*iPageSize
                    else
                    x=iPageSize
                    end if	
                    %>
                    <%
						For i=1 To x
						UpdateTime = Year(rs("UpdateTime")) & "--" & Month(rs("UpdateTime")) & "--" & day(rs("UpdateTime")) 
                    %>
                        <li <%if i mod 2 =0 then response.write "class=""blue"""%>><span><%=UpdateTime%></span><em><%=i%></em><a href="/newsinfo.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></li>
                    <%
						rs.movenext
						next
                    %>
                    </ul>
                    <div class="showpage">
                    <%'以下显示分页
                    call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
                    rs.close
                    set rs=nothing
                    %>
                    </div>
                    
                    
                    <div class="searchbox">
                    
                        <form action="Search.asp" method="post" id="form1" name="form1" autocomplete="off">
                            <input class="keyword" type="text" name="keyword" id="keyword" onpropertychange="callServer();"  onblur="onBlurt();" onclick="onFocust();">
                            
                            <input class="button" type="submit" name="button" id="button" value="">
                        </form>
                    
                    
                    </div>
                </div>
            
            
            </div>
        </div>
        <!--#include file="ContentPage_right.asp"-->
    </div>
    <!--#include file="bottom.asp"-->
</div>











</body>
</html>